home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / AC1.PRG next >
Encoding:
Text File  |  1985-09-01  |  1.5 KB  |  53 lines
  1. CLEA
  2. madd1=.t.
  3. DO WHIL MADD1
  4. REST FROM MADD
  5. CLEA
  6. @01,15 say '*** Casefile Information ***'
  7. @03,15 SAY 'New case File number or (99) to exit:' get mfile_nmbr
  8. READ
  9. CLEA gets
  10. IF substr(mfile_nmbr,1,2)='99'
  11. madd1=.f.
  12. CURR='011'
  13. EXIT
  14. ENDI
  15. @04,00 say "  client's name :" get Mclientname PICT '@!'
  16. @05,00 say '  client street :' get Mcstreet PICT '@!'
  17. @06,00 say 'his city/st/zip :' get Mccity_st PICT '@!'
  18. @07,00 say " client's phone :" get Mcphone
  19. @08,00 say 'alternate phone :' get Maltphone
  20. @09,00 say '        contact :' get Mcontact PICT '@!'
  21. @10,00 say '      reference :' get Mreference
  22. @11,00 say ' other attorney :' get Mopa PICT '@!'
  23. @12,00 say '      his phone :' get Mopa_phone
  24. @13,00 say '          court :' get Mcourt
  25. @14,00 say '   cause number :' get Mcause_nmbr
  26. @16,15 say '*** Billing Information ***'
  27. @18,00 say 'billing on hold Y or N? :' get mhold PICT '@!'
  28. @18,30 say 'billing code (1 or 5) :' get mcode
  29. @20,00 say 'beginning bal. :' get mbegin_bal
  30. READ
  31. CLEA GETS
  32. @22,21 say 'EVERY THING OK Y or N?'
  33. SET CONS OFF
  34. WAIT TO MADD2
  35. IF UPPER(MADD2)<>'Y'
  36. LOOP
  37. ELSE
  38. APPE BLAN
  39. REPL CLIENTNAME WITH MCLIENTNAME,FILE_NMBR WITH MFILE_NMBR
  40. REPL CSTREET WITH MCSTREET,CCITY_ST WITH MCCITY_ST
  41. REPL CPHONE WITH MCPHONE,ALTPHONE WITH MALTPHONE
  42. REPL CONTACT WITH MCONTACT,REFERENCE WITH MREFERENCE
  43. REPL OPA WITH MOPA,OPA_PHONE WITH MOPA_PHONEì
  44.  
  45. REPL COURT WITH MCOURT,CAUSE_NMBR WITH MCAUSE_NMBR
  46. REPL HOLD WITH MHOLD,CODE WITH MCODE
  47. REPL BEGIN_BAL WITH MBEGIN_BAL,PREV_BAL WITH MBEGIN_BAL
  48. SET CONS ON
  49. ENDI
  50. ENDD
  51. CURR='011'
  52. RETU
  53.